home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / memory window (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.7 KB  |  60 lines
  1. 150 gosub 500
  2. 170 print h$"page 00             press 'q' to quit."
  3. 172 print""spc(16)"crsr up - page up"
  4. 174 print""spc(16)"crsr down - page down"
  5. 180 print h$""d$"address"
  6. 190 gosub 200:goto 320
  7. 200 print h$d$d$d$
  8. 210 for i=0 to 243 step 12
  9. 220 print right$("    "+mid$(str$(256*p+i),2),5)+chr$(183);
  10. 225 if i<240 then print
  11. 230 if i=60 or i=121 or i=182 then i=i+1
  12. 240 if peek(197)<>64 then i=1e3
  13. 250 next:print h$
  14. 260 if i<1e3 then poke 198,0
  15. 270 return
  16. 280 if peek(197)=64 then gosub 200
  17. 290 get k$:if k$="" goto 290
  18. 292 ifk$="q"then6000
  19. 300 if k$>="0" and k$<="9" and len(n$)<2 then n$=n$+k$
  20. 310 n=val(n$):if len(n$)=2 then n$="":if n<64 then p=n
  21. 320 if k$=u$then p=p+1:if p>63 then p=0
  22. 330 if k$=d$then p=p-1:if p<0 then p=63
  23. 340 poke 2040,p*4:rem move sprites
  24. 350 poke 2041,p*4+1
  25. 360 poke 2042,p*4+2
  26. 370 poke 2043,p*4+3
  27. 380 p$=right$("0"+mid$(str$(p),2),2)
  28. 390 print h$tab(5)p$
  29. 400 print h$d$d$d$d$tab(15);
  30. 410 if p=peek(46)then print "start variables"256*peek(46)+peek(45):goto 280
  31. 420 if p=peek(48)then print "start arrays   "256*peek(48)+peek(47):goto 280
  32. 430 if p=peek(50)then print "end of arrays  "256*peek(50)+peek(49):goto 280
  33. 440 if p=peek(52)then print "string storage "256*peek(52)+peek(51):goto 280
  34. 450 if p=1 then print "stack area           ":goto 280
  35. 460 if p<4 then print "basic work area      ":goto 280
  36. 470 if p<8 then print "screen memory        ":goto 280
  37. 480 if p<16 or p>31 then print "basic program area   ":goto 280
  38. 490 if p<32 then print "character rom image  ":goto 280
  39. 500 rem border and background black
  40. 510 poke 53280,0:poke 53281,0:poke 646,7
  41. 520 c$=chr$(147):print c$;
  42. 530 d$=chr$(17):u$=chr$(145):h$=chr$(19):rv$=chr$(18)
  43. 540 for i=1 to 24:cd$=cd$+d$:next
  44. 550 v=53248:rem video chip start
  45. 560 for i=0 to 3
  46. 570 poke 2040+i,i:rem data pointers
  47. 580 poke v+39+i,1:rem color white
  48. 590 poke v+2*i,80:rem x coords
  49. 600 poke v+2*i+1,82+i*42:rem y coords
  50. 610 next
  51. 620 poke v+23,15:rem expand x
  52. 630 poke v+29,15:rem expand y
  53. 640 poke v+21,15:rem enable sprites
  54. 650 dim a(50)
  55. 660 return
  56. 6000 rem return
  57. 6005 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  58. 6006 ifer<>63thenend
  59. 6010 print"[147]returning to loadstar...":pokev+21,0:load"hello connect",8
  60.